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Code Implementation 

Option Explicit 
Option Base 1 

Public OldsQ As String, NewsQ As String, Condls() As String, CompVals() As String, CapsQ As String 
Public WidgetO As String, cWidget20 As String, cWidgetSQ As String, cWidget40 As String, cWidget5() As 
String, cWidget60 As String 

Public cVal2() As String, cVaI30 As String, cVaWQ As String, cVal5() As String, cVal60 As String 

Public cOPlO As String, cOP20 As String, cOPSQ As String, cOP4() As String, cOPSQ As String, cOP60 As 

String 

Public OpenTagO As String, CloseTagO As String, cWidQ As String, cOP() As String, cValQ As String 
Public DeliveiyFileName As String, ProjID As String 

BEGIN DOCUMENT ASSEMBLY 
Step 100 Define variables 

Sub Cgi^MainO 

Dim fiiameln As String, fiiameOut As String, TextLine As String, OutTextLine As String 
Dim Client As String, SessnID As String, starttime As Single, i As Long, Retail As String 

Dim MyDB As Database, My Table As Recordset 

Dim DFN As String, IFN As String, SFN As String, DBIndex As String, Deletions As Boolean, ptr As Long 
Dim Deletelt As Boolean 

•On Error GoTo DBError 

Step 200: Determine which legal desktop skeleton document is appropriate based on conditional 
evaluation of questionaire. 



ProjID = GetCgiValueCProjID") 

Set MyDB = OpenDatabase("c:\inetpub\DatabasesVDocumentSet.mdb") 
Set MyTable = MyDB.OpenRecordset( _ 
"SELECT * FROM Documents WHERE ProjectName = + ProjK) + dbOpenDynaset, dbReadOnly) 
4=dbOpenTable 
MyTable-MoveFirst 

DFN MyTablelDeliveryFileName 
IFN = MyTable! InstructionsFileName 
SFN = MyTable! SkeletonFileName 
Retail = MyTable! RetailPrice 
DBIndex = CStr(MyTable!RecordID) 

* SendHeader "This is a test" 

' Send "<p><small>DeliveryFilename = " & MyTable! DeliveiyFileName & "</p>" 

* Send "<p>InstructionsFilename = " & MyTable! InstructionsFileName & "</p>" 

* Send "<p>SkeletonFilename = " & MyTable! SkeletonFileName & "<;/p>" - 
' Send "<p>DBIndex = " & MyTable! RecordID & "<br>" 

MyTable.Close 




Set MyTable = MyDB,OpenRecordset( _ 
"SELECT * FROM Insertions WHERE DocRecordlDowning = + DBIndex + ORDER BY 
SequenceNumber", dbOpenDynaset, dbReadOnly) ' 1 =dbOpenTable 

MyTable.MoveLast 'make sure to see them all 
' Send "# of tags = " & MyTable.RecordCount & "<br>" 

ReDim News(MyTable.RecordCount) 

ReDim Olds(MyTable.RecordCount) 

ReDim Condls(MyTable.RecordCount) 

ReDim CompVals(MyTable.RecordCount) 

ReDim Caps(MyTabIe,RecordCount) 

ReDim Widget(MyTable.RecordCount) 

ReDim cWidget2(MyTable.RecordCount) 

ReDim cWidget3(MyTable.RecordCount) 

ReDim cWidget4(MyTable.RecordCount) 

ReDim cWidget5(MyTable.RecordCouBt) 

ReDim cWidget6(MyTable.RecordCount) 

ReDim cVal2(MyTable.RecordCount) 

ReDim cVal3(MyTable.RecordCount) 

ReDim cVal4(MyTable.RecordCount) 

ReDim cVal5{MyTable.RecordCount) 

ReDim cVal6(MyTable.RecordCount) 

ReDim cOPl(MyTable.RecordCount) 

ReDim cOP2(MyTable.RecordCount) 

ReDim cOP3(MyTable.RecordCount) 

ReDim cOP4(MyTable.RecordCount) 

ReDim cOP5(MyTable.RecordCount) 

ReDim cOP6(MyTable.RecordCount) 

» 

Step 300: Determine which information from expert questionnaire 410 should be merged into 
legal desktop skeleton docimient based on conditional replacements and rules. 

t 

MyTablcMoveFirst 
i-1 

While Not MyTable.EOF 
Olds(i) = MyTableiMetaTag 
Caps(i) = MyTablelCapitalize 
If MyTablelConditionalType = "widget" Then 

Widget(i) = MyTablelQuestionaireWidget 

Condls(i) = "no" 

If MyTablelCapitalize = "yes" Then 

News(i) = UCase(GetCgiValue(MyTable!Questionaire Widget)) 
Else 

News(i) = GetCgiValue(MyTable!QuestionaireWidget) 

End If 

If Len(News(i)) < 1 Then News(i) = " " 
Else 'ConditionalType = logic 

'There will always be at least one, set it up 

T 

Widget(i) = MyTablelCondWidgetl 




Condls(i) = "l" 
News(i) = MyTablelRepText 
CompVals(i) = MyTablelCondValuel 
cOPl(i) = MyTablelCondOpl 

'Now, check for a second conditional 

If Not IsNull(MyTabIe!CondWidget2) Then 
There is a second conditional 

Condls(i) = "2" 

cWidget2(i) = MyTable!CondWidget2 

cVal2(i) = MyTable!CondValue2 

cOP2(i) = MyTabIe!CondOp2 

"Now, check for a third conditional 

If Not IsNull(MyTable!CondWidget3) Then 

'There is a third conditional 

Condls(i) = "3" 

cWidget3(0 = MyTable!CondWidget3 

cVal3(i) = MyTabIe!CondValue3 

cOP3(i) = MyTable!CondOp3 

•Now check for a fourth conditional 

If Not IsNull(MyTable!CondWidget4) Then 

'There is a fourth conditional 

Condls(i) = "4" 

cWidget4(i) = MyTabIe!CondWidget4 

cVal4(i) = MyTable!CondValue4 

cOP4(i) = MyTable!CondOp4 

"Now, check for a fifth conditional 

If Not lsNull(MyTable!CondWidget5) Then 

'There is a fifth conditional 

Condls(i) = "5" 

cWidget5(i) = MyTable!CondWidget5 

cVal5(i) = MyTable!CondValue5 

cOP5(i) = MyTable!CondOp5 

•Now check for a sixth conditional 

If Not IsNull(MyTable!CondWidget6) Then 

There is a sixdi conditional 

Condls(i) = "6" 

cWidget6(i) = MyTable!CondWidget6 
cVal6(i) = MyTable!CondValue6 
cOP6(i) = MyTable!CondOp6 
End If 
End If 
End If 
End If 
End If 
End If 
i = i+ 1 

MyTable.MoveNext 
Wend 

For i = 1 To UBound(01ds) Step 1 
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' Send "MetaTag - " & "<" & Right(01ds(i), Len(01ds(i)) - 1) & " Widget =" & Widget(i) & " CmpV=" & 
CompVals(i) & " Cap=" & Caps(i) & " Text= " & News(i) & "Condls-" & Condls(i) & "<br>" 
' Nexti 

MyTable.Close 
Tsfow do deletions 
Set MyTable = MyDB.OpenRecordset( _ 
"SELECT * FROM Deletions WHERE DocRecordlDowning = + DBIndex + ORDER BY 
SequenceNumber", dbOpenDynaset, dbReadOnly) ' l=dbOpenTable 
IfMyTabIe.EOFThen 

Deletions = False 
Else 

Deletions = True 

MyTableMoveLast 'make sure to see them all 
ReDim OpenTag(MyTable.RecordCount) 
ReDim CloseTag(MyTable.RecordCount) 
ReDim cWid(MyTable.RecordCount) 
ReDim cOP(MyTable.RecordCount) 
ReDim cVal(MyTable.RecordCount) 
MyTable-MoveFirst 
i=l 

While Not MyTable.EOF 

OpenTag(i) = MyTable! OpeningTag 
CloseTag(i) = MyTablelCIosingTag 
cWid(i) = MyTablelCondWidgetl 
cOP(i) = MyTablelCondOpl 
cVal(i) = MyTablelCondValuel 
i-i+ I 

MyTable.MoveNext 
Wend 
End If 

MyTable.Close 
MyDB.Close 



Step 400: Provide document name 

'Send "</small>Please write down the document name. It will be useful! if this session gets interrupted. <font 
color=""#FFOOOO*"'>" + DeliveiyFileName + "</font></p>" 

Mfim Naming stuff from the last page 
SessnID = GetCgiValue("SessID") 
Client = Trim$(GetCgiValue("txtfullname")) 
SqueezeBIanks Client 

DeliveryPileName = Client + DFN + SessnID + ".rtf * 
MakeNewSessionRecord SessnID, DeliveiyFileName, Client, IFN, Retail 




Step 500 Open a personal document file on server 



fhamein = "c:\inetpub\rawdocs\" + SFN 

ftiameOut = "c:\inetpub\wwroot\lega!adviceline2,com\donedocs\" + DeliveryFileName 



Open fhamein For Input As #1 
Open ftiameOut For Output As #2 

Step 600: Line-by-line insertion of meta-tagged questionnaire information into skeleton 
document. 

starttime = Timer 

Do While Not E0F{1) ' Loop until end of file. 
Line Input #1, TextLine ' Read line into variable. 

If Deletions Then 'Delete lines prior to doing replacements 
For i = 1 To UBound(OpenTag) look for each tag in this line 
ptr = InStr(l, TextLine, OpenTag(i), vbBinaryCompare) 
If ptr o 0 Then 'Found one of the opentags, do the copythru 
Is condition to delete this section satisfied? 
Deletelt = ConditionalSatisfied(cWid(i), cVal(i), cOP(i)) 
IfDeletelt Then 

RemovePages i 
End If 

'Read a new line in any event 
Line Input #1, TextLine ' Read line into variable. 
End If 

ptr = InStr(l, TextLine, CloseTag(i), vbBinaryCompare) 
If ptr o 0 Then 'Found one of the closetags, skip it 
Line Input #1, TextLine * Read line into variable. 
End If 
Nexti 
End If 

If Len(TextLine) > 3 Then 'make sure its long enough to contain a tag 
OutTextLine = ReplaceAll(TextLine) 

Else 

OutTextLine = TextLine 
End If 

Print #2, OutTextLine 

If Timer > starttime + 90 Then 

sErrorDesc = "Timed out in cgi-main." 

Close #2 

Close #1 

ErrorHandler 

End 



mi 



1^ 
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End If 
Loop 



Close #2 

Close #1 (Note, the foregoing code opens skeleton file, creates an empty target file, replaces meta-tags with 
questionnaire info, and executes recursively line-by-line until exhausted and target file full) 

SendRetrievalPage 

End Sub 

Sub RemovePages(i As Long) 

Dim ptr As Boolean, tLine As String 

'line containing the opening tag gets dumped 

ptr = 0 

'Will drop out of loop when closing tag is encountered. 
Do While ptr = 0 'complete the lawyer pages 
Line Input #1, tLine 

ptr = InStr(l, tLine, CIoseTa|(i), vbBinaiyCompare) 
Loop 

End Sub 

Sub Squee2eBlanks(tmp As String) 
Dim ss 

Do 

ss = InStr(l,tmp,"") 

Ifss>lThen 
tmp = Left$(tmp, ss - 1) + Right$(tmp, Len(tmp) - ss) 

End If 
Loop Until ss = 0 
End Sub 

Sub MakeNewSessionRecord(ID As String, DelFname As String, ClientName As String, InstrsFname As String, 
Amt As String) 

Dim MyDB As Database, MyTable As Recordset 
On Error GoTo DBError 

Set MyDB = OpenDatabase("c:\inetpub\Databases\LAL.mdb") 

Set MyTable = MyDB.OpenRecordset("SessionData", dbOpenTable) 'l=dbOpenTable 

'look for duplicate 
MyTable.MoveFirst 
While Not MyTable.EOF 
If Trim$(MyTable!SessionID) = ID Then 
MyTable.Edit 

MyTable! SessionID = ID + "X" 'Show record was not completed 
MyTable-Update 
End If 

MyTable-MoveNext 
Wend 




"Now make new one 
MyTable.MoveFirst 
MyTable.AddNew 
MyTablelSessionID = ID 
My Table! DeliveiyFileName = DelFname 
MyTableiPayType = "Void" 
MyTable!CompIeted = False 
MyTablelClientName = ClientName 
•MyTablelPaylnstrumentNumber = 
MyTable!AmountBilled = Amt 
MyTabielDeliverlnstructionsFilename = InstrsFname 
MyTable!Date = Now 
MyTable.Update 



MyTable.Close 
MyDB.Close 
Exit Sub 

DBError: 
MyTable.Close 
MyDB,Close 

sErrorDesc = " Error in session DB add client " 
ErrorHandler 
End 
End Sub 

Function ReplaceAll(TT As String) As String 

Dim LL As String, RR As String, ss, x As Integer, tmp As String, starttime As Single 
Dim WeDoIt As Boolean 

starttime = Timer 



WeDoIt = False 
tmp = TT 

ss = InStr( 1 , tmp, "<") If no metatag, don't do the search 
Ifss = OThen 

RepIaceAU = tmp 

Exit Function 
End If 

For X = 1 To UBound(01ds) 
If Condls(x) o "no" Then 'if condls ^ 1,2,3,4,5 then enter here 
'There is at least one conditional 

If ConditionalSatisfied(Widget{x), CompVals(x), cOPl(x)) Then 
Tirst condition was met, is there a second? 
If Val(Condls(x)) > 1 Then 
• *there is a second 

If ConditionalSatisfied(cWidget2(x), cVal2(x), cOP2(x)) Then 
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'The second conditional was met, is there a third? 

IfVal(Condls(x))>2Tlien 
'There is a third conditional 

If ConditionalSatisfied(cWidget3(x), cVal3(xX cOP3(x)) TTien 
'The third conditional was met, is there a fourth 
IfVal(Condls(x))>3Then 
'There is a fourth conditional 

If ConditionalSatisfied(cWidget4(x), cVaI4(x), cOP4(x)) Then 
'Fourth conditional was met, is there a fifth? 
IfVal(Condls(x))>4Then 
'There is a fifth 

If ConditionalSatisfied(cWidget5(x), cVal5(x), cOP5(x)) Then 
'Fifth conditional was met, is ftere a sixth? 
IfVal{CondIs(x))>5Then 
'There is a sixth 

If ConditionalSatisfied(cWidget6(x), cVal6(x), cOP5(x)) Then 
'Fixtfi conditional was met 
WeDoIt = True 
Else 

WeDoIt = False 
End If 
Else 

WeDoIt = True 
End If 
Else 

WeDoIt = False 
End If 
Else 

WeDoIt = Trae 
End If 
Else 

WeDoIt = False 
End If 
Else 

WeDoIt = True 
End If 
Else 

WeDoIt -False 
End If 
Else 

WeDoIt = True 
End If 
Else 

WeDoIt = False 
End If 
Else 

WeDoIt = True 
End If 

Else ' The first conditional failed 

WeDoIt = False 
End If 
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Else * No conditionals, just do the straight replacement 

WeDoIt = True 
End If 



IfWeDoItThen 
Do 

If Len(01ds(x)) = 0 Then Err.Raise vbObjectError + 1050, "ReplaceAll", "Zero length OldsQ in 
ReplaceAU" 

If Len(News(x)) = 0 Then Err.Raise vbObjectError +1051, "ReplaceAll", "Zero length NewsQ in 
ReplaceAll" 

ss = InStr(l, tmp, 01ds(x)) 
Ifss>OThen 
Ifss> 1 Then 

LL = Left$(tmp, ss - 1) 
Else 

LL = "" 
End If 

RR = Right$(tmp, Len(tmp) - ss - Len(01ds(x)) + 1) 
tmp = LL + News(x) + RR 
End If 

If Timer > starttime + 5 Then 
sErrorDesc = "Loop exceeds 5 second timer in replace. X=" + Str$(x) + " tmp=" + tmp + + 

Str$(ss) 

ErrorHandler 
Close 
End 
End If 
Loop Until ss = 0 

End If 
Nextx 

ReplaceAll = tmp 
Exit Function 

End Function 

Function ConditionalSatisfied(Widget As String, Val As String, Op As String) As Boolean 
Select Case (Op) 
Case * — " 

If UCase(Trim(GetCgiValue(Widget))) = UCase(Trim(Val)) Then 

ConditionalSatisfied = True 
Else 

ConditionalSatisfied = False 
End If 
Case"o" 

If UCase(Trim(GetCgiValue(Widget))) o UCase(Trim(Val)) Then 

ConditionalSatisfied = True 
Else 

ConditionalSatisfied = False 
End If 
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Case "<" 

If CSng(GetCgiValue(Widget)) < CSng(Val) Then 

ConditionalSatisfied = True 
Else 

ConditionalSatisfied = False 
End If 

Case 

If CSng(GetCgiValue(Widget)) > CSng(Val) Then 

ConditionalSatisfied = True 
Else 

ConditionalSatisfied = False 
End If 
End Select 
End Function 

Sub SendRetrievalPageO 

Step 470: Give client 12 his/her personalized document reference number and payment 
instructions via an HTML form bearing a Submit Request button. 

SendHeader "Payment Instrument Selection" 

Send "<p>Select Kit &It;< EnterYourlnfo << <font color=""#FFOOOO"">Payment</font>>> 
DocDownload</p>" 

Send "<p><strong>Your package of personalized documents has been successfully createA  Select the 
method of payment you wish to use.*^/p>" 

Send "<p>Please write down this document reference ID. <font color=""#FFOOOO'">" + DeliveryFileName + 

"</font></p>" 

Send "<p>If tiiis session gets interrupted, use the PanicButton on the home page with this ID to resume the 

download</strong></p>" 
Send "<blockquote>" 

Send "<p><ahre^"".7payment/PaymentFoim,asp"">Credit Card<;/aX/p>" 
Send "<p><ahref-"".ypayment/tcheck.asp"">On-Line Check</aXp>" 

Send "<p><a hre^""../DBPages/SubscriberSignIn.asp?ProjID=" + ProjID + "'"'>Subscription</aX/p>" 
Send "</bIockquote>" 



SendFooter 



End Sub 




